home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
datamaker asc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
37 lines
100 poke53280, 0:poke53281, 0:print"[147]";
101 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
102 print"[152] [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211] "
103 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
104 print"[172] [146][187]"
105 print" "
106 print" ASC DATA MAKER "
107 print"[163][163][163][163][163][163][163][163][163][160] [146][163][163][163][163][163][163][163][163][163][160] By ";
108 print" [160]"
109 print"[163][163][163][163][163][163][163][163][163] [146][163][163][163][163][163][163][163][163][163] David Pankur";
110 print"st [160]"
111 print"[163][163][163][163][163][163][163][163][163] [160][146][163][163][163][163][163][163][163][163][163] ";
112 print" "
113 print"[188] [146][190]"
114 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
115 print"[152] PRESS SPACE[160]TO[160]CONTINUE "
116 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
117 geta$:ifa$<>" "then 117
120 :
130 :
140 :
200 poke53280, 0:poke53281, 0:print"[147]";
204 print"[206][207][212][201][195][197]:[155][207]nce[158][196]atamaker [193][211][195][155]is"
205 print"activatedyouwillhaveto"
206 print"reboot[158]LOADSTAR[155]toreturn"
207 print"tothemenusystem."
208 print"[154][196]oyouwanttocontinue?"
210 geta$:ifa$="[217]"ora$="y"then300
212 ifa$="n"ora$="[206]"then400
217 goto210
300 print"[147]":load"datamaker a",8
400 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
401 ifer<>63thenprint"[147]":end
405 print"[147][144]load"chr$(34)"one-screen winners"chr$(34)",8"
410 print"run"
420 poke631,13:poke632,13:poke198,2:end